home *** CD-ROM | disk | FTP | other *** search
/ Mac100% 1999 April / MAC100-1999-04.ISO.7z / MAC100-1999-04.ISO / オンラインソフト定点観測 / Graphics / X-TRACE67.lzh / XTRACE R67 / X-TRACE / X-TRACE.rsrc / TEXT_1001_pcon.xti.txt < prev    next >
Text File  |  1999-01-31  |  544b  |  42 lines

  1. xtrace    "poly-cone"
  2. {
  3.     procedure    pcon    l,m,n, a,b,c, r,h, pn
  4.     {
  5.         nvar    pn=10;
  6.         nvar    h=r;
  7.  
  8.         var        t1, x1,y1;
  9.         var        t2, x2,y2;
  10.  
  11.         para    l,m,n;
  12.         leverz    a,b,c;
  13.         sim        r,r,h/2;
  14.         boundary    sphere    0,0,1, sqrt (2)
  15.         {
  16.             var        i=0;
  17.             while    lt (i - pn)
  18.             {
  19.                 t1=2*PI*i/pn;
  20.                 t2=2*PI*(i + 1)/pn;
  21.                 x1=cos (t1);
  22.                 y1=sin (t1);
  23.                 x2=cos (t2);
  24.                 y2=sin (t2);
  25.                 poly    テォツァテアツ 
  26.                 {
  27.                     pt    0,0,2;
  28.                     pt    x1,y1,0;
  29.                     pt    x2,y2,0;
  30.                 }
  31.                 poly    テュテ催アツ 
  32.                 {
  33.                     pt    0,0,0;
  34.                     pt    x1,y1,0;
  35.                     pt    x2,y2,0;
  36.                 }
  37.                 i=i + 1;
  38.             }
  39.         }
  40.     }
  41. }
  42.